sdk/samples/all in on code/Visual Studio 2008/VBVstoWordDocument/ThisDocument.vb

   1 '* Copyright (c) Microsoft Corporation.
   2 '*
   3 '* The VBWordDocument project provides the examples on how manipulate Word 2007 Content Controls
   4 '* in a VSTO document-level project
   5
   6 '* This source is subject to the Microsoft Public License.
   7 '* See http://www.microsoft.com/opensource/licenses.mspx#Ms-PL.
   8 '* All other rights reserved.
   9 '*
  10 '* THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
  11 '* EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
  12 '* WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
  13 '\******************************************************************************************/
  14
  15 #Region "Importing directives"
  16 Imports System
  17 Imports System.Collections.Generic
  18 Imports System.Data
  19 Imports System.Linq
  20 Imports System.Text
  21 Imports System.Windows.Forms
  22 Imports System.Xml.Linq
  23 Imports Microsoft.VisualStudio.Tools.Applications.Runtime
  24 Imports Office = Microsoft.Office.Core
  25 Imports Word = Microsoft.Office.Interop.Word
  26 Imports System.Diagnostics
  27 #End Region
  28
  29
  30 Public Class ThisDocument
  31
  32     Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
  33         Me.ActionsPane.Visible = True
  34         Dim p As PaneControl = New PaneControl()
  35         Me.ActionsPane.Controls.Add(p)
  36     End Sub
  37
  38     Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
  39
  40     End Sub
  41
  42     Private Sub ThisDocument_ContentControlAfterAdd(ByVal NewContentControl As Microsoft.Office.Interop.Word.ContentControl, ByVal InUndoRedo As System.Boolean) Handles Me.ContentControlAfterAdd
  43         Debug.Print("ThisDocument_ContentControlAfterAdd :" + NewContentControl.Title)
  44     End Sub
  45
  46     Private Sub ThisDocument_ContentControlBeforeContentUpdate(ByVal ContentControl As Microsoft.Office.Interop.Word.ContentControl, ByRef Content As System.String) Handles Me.ContentControlBeforeContentUpdate
  47         Debug.Print("ThisDocument_ContentControlBeforeContentUpdate :" + ContentControl.Title)
  48     End Sub
  49
  50     Private Sub ThisDocument_ContentControlBeforeDelete(ByVal OldContentControl As Microsoft.Office.Interop.Word.ContentControl, ByVal InUndoRedo As System.Boolean) Handles Me.ContentControlBeforeDelete
  51         Debug.Print("ThisDocument_ContentControlBeforeDelete :" + OldContentControl.Title)
  52     End Sub
  53
  54     Private Sub ThisDocument_ContentControlBeforeStoreUpdate(ByVal ContentControl As Microsoft.Office.Interop.Word.ContentControl, ByRef Content As System.String) Handles Me.ContentControlBeforeStoreUpdate
  55         Debug.Print("ThisDocument_ContentControlBeforeStoreUpdate :" + ContentControl.Title)
  56     End Sub
  57
  58     Private Sub ThisDocument_ContentControlOnEnter(ByVal ContentControl As Microsoft.Office.Interop.Word.ContentControl) Handles Me.ContentControlOnEnter
  59         Debug.Print("ThisDocument_ContentControlOnEnter :" + ContentControl.Title)
  60     End Sub
  61
  62     Private Sub ThisDocument_ContentControlOnExit(ByVal ContentControl As Microsoft.Office.Interop.Word.ContentControl, ByRef Cancel As System.Boolean) Handles Me.ContentControlOnExit
  63         Debug.Print("ThisDocument_ContentControlOnExit :" + ContentControl.Title)
  64     End Sub
  65
  66 End Class